home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesevnt1.s < prev    next >
Text File  |  1990-11-23  |  1KB  |  46 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.  
  10. ;*************************************************************************
  11. ;*
  12. ;* Event manager routines 1 of n.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; evnt_keybd (The easy one).
  18. ;-------------------------------------------------------------------------
  19.  
  20. _evnt_keybd::
  21.           AControl  20,0,1,0
  22.           ACall     RET2USER
  23.          
  24. ;-------------------------------------------------------------------------
  25. ; evnt_button
  26. ;-------------------------------------------------------------------------
  27.  
  28. _evnt_button::
  29.           .cargs    #8,.bclicks,.mask,.state,.px.l,.py.l,.pbutton.l,.pstate.l
  30.           
  31.           link      a6,#-10             ; allocate intout[5].
  32.           
  33.           AControl  21,3,5,0
  34.  
  35.           moveq.l   #-10,d2             ; =  intout
  36.           lea       .bclicks(a6),a1     ; -> intin
  37.           
  38.           ACall     RET2HERE
  39.  
  40.           moveq.l   #-10,d1
  41.           lea       .px(a6),a1
  42.           jmp       (a0)
  43.  
  44. ;         end of code
  45.  
  46.